home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Software Vault: The Gold Collection
/
Software Vault - The Gold Collection (American Databankers) (1993).ISO
/
cdr51
/
kw110.zip
/
KWDEMO.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1993-04-01
|
473b
|
14 lines
PROGRAM Kwdemo; {PASCAL bar code input example}
VAR Scanned : String;
BEGIN
Write('Scan Now: ');
Readln( Scanned );
Writeln( 'The variable SCANNED is now equal to: ',Scanned );
END.
{This short program will read input from a bar code or the keyboard.}
{After a bar code message is scanned, the variable "Scanned" will}
{contain the bar code message. PASCAL's READ and READKEY can also}
{be used to input bar code messages.}